﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class MovcajaherrFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As MovcajaherrBE
        Dim tmpMovcajaherr As MovcajaherrBE = New MovcajaherrBE()
        Try
            With tmpMovcajaherr
                .Cantidad = convertDTFromDb.ConvertString(dr.Item("Cantidad"))
                .IdCaja = convertDTFromDb.ConvertLong(dr.Item("IdCaja"))
                .IdProducto = convertDTFromDb.ConvertString(dr.Item("IdProducto"))
            End With
            Return tmpMovcajaherr
        Catch ex As Exception
            Throw
        Finally
            tmpMovcajaherr = Nothing
        End Try
    End Function
End Class
